EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/programs/write/module/rwg_project.module

Text File | 1996-09-26 | 3KB | 228 lines

MODULE RWG_Project;

VAR
  Id : STRING;

  PROCEDURE GetCurrentId():NUMBER;

  VAR
    id    : NUMBER;
    msgId : STRING;

  BEGIN
    IF REGEXP("^ *[0-9]+",_currentLine,msgId) THEN
      id:=NUMBER(msgId);
      IF id>0 THEN
        RETURN id;
      END;
    END;
    Flash;
    RETURN -1;
  END GetCurrentId;

  PROCEDURE ReadCurrentMsg;

  VAR
    id : NUMBER;

  BEGIN
    id:=GetCurrentId;
    IF id>0 THEN
      UMS.ReadMsg(id);
    ELSE
      Flash;
    END;
  END ReadCurrentMsg;

  PROCEDURE ChangeCurrentMsgFlags(set, clear : STRING);

  VAR
    id : NUMBER;

  BEGIN
    id:=GetCurrentId;
    IF id>0 THEN
      UMS.ChangeMsgFlags(id,set,clear);
    ELSE
      Flash;
    END;
  END ChangeCurrentMsgFlags;


(* Tastaturbelegung *)

KEY "control up"
  ScrollUp
END;

KEY "alt up"
  Goto([_xPos,1])
END;

KEY "shift up"
  PageUp(90)
END;

KEY "up"
  CursorUp(0)
END;

KEY "control down"
  ScrollDown
END;

KEY "alt down"
  Goto([_xPos,_length])
END;

KEY "shift down"
  PageDown(90)
END;

KEY "down"
  CursorDown(0)
END;

KEY "return"
  ReadCurrentMsg;
END;

KEY "space"
  ChangeCurrentMsgFlags("","NP");
  IF NOT CursorDown(0) THEN
    UMS.RereadGroupList;
  END;
END;

KEY "a"
  ChangeCurrentMsgFlags("A","");
END;

KEY "j"
  ChangeCurrentMsgFlags("J","");
END;

KEY "p"
  ChangeCurrentMsgFlags("P","N");
END;

KEY "s"
  ChangeCurrentMsgFlags("S","");
END;

KEY "f"
  ChangeCurrentMsgFlags("F","");
END;

KEY "n"
  ChangeCurrentMsgFlags("N","P");
END;

KEY "A"
  ChangeCurrentMsgFlags("","A");
END;

KEY "J"
  ChangeCurrentMsgFlags("","J");
END;

KEY "P"
  ChangeCurrentMsgFlags("","P");
END;

KEY "S"
  ChangeCurrentMsgFlags("","S");
END;

KEY "F"
  ChangeCurrentMsgFlags("","F");
END;

KEY "N"
  ChangeCurrentMsgFlags("","N");
END;

(* Menüs *)

MENU "Projekt";

ITEM "Reread list" "R"
  UMS.RereadGroup;
END;

ITEMBAR;

ITEM "Set flags..." ""
END;

SUB "Set archive" "A"
  ChangeCurrentMsgFlags("A","");
END;

SUB "Set junked" "J"
  ChangeCurrentMsgFlags("J","");
END;

SUB "Set postponed" "P"
  ChangeCurrentMsgFlags("P","N");
END;

SUB "Set selected" "S"
  ChangeCurrentMsgFlags("S","");
END;

SUB "Set filtered" "F"
  ChangeCurrentMsgFlags("F","");
END;

SUB "Set new" "N"
  ChangeCurrentMsgFlags("N","P");
END;

ITEM "Clear flags..." ""
END;

SUB "Clear archive" ""
  ChangeCurrentMsgFlags("","A");
END;

SUB "Clear junked" ""
  ChangeCurrentMsgFlags("","J");
END;

SUB "Clear postponed" ""
  ChangeCurrentMsgFlags("","P");
END;

SUB "Clear selected" ""
  ChangeCurrentMsgFlags("","S");
END;

SUB "Clear filtered" ""
  ChangeCurrentMsgFlags("","F");
END;

SUB "Clear new" ""
  ChangeCurrentMsgFlags("","N");
END;

ITEMBAR;

ITEM "Iconify" "escape"
  Iconify
END;

ITEMBAR;

ITEM "About" "?"
  About
END;

ITEMBAR;

ITEM "Quit" "Q"
  UMS.RereadGroupList;
END;

END RWG_Project.